home *** CD-ROM | disk | FTP | other *** search
/ The Scorpion King Cardz / The Scorpion King Cardz - Disc 3 - Balthazar.iso / pc / assets / scorp_photos.dxr / 00015_parent_oPhotosPic.ls < prev    next >
Encoding:
Text File  |  2002-03-18  |  691 b   |  33 lines
  1. property pMyListPosition, pWidth, pHeight, pMyRect, pMyState, pMyPoint, pMyImage, pBlendLevel, pMaxBlend
  2. global gPicNum
  3.  
  4. on new me, listPosition
  5.   pMyListPosition = listPosition
  6.   memName = "photos_pic" & gPicNum
  7.   pMyImage = member(memName).image.duplicate()
  8.   pWidth = pMyImage.width
  9.   pHeight = pMyImage.height
  10.   pMyRect = pMyImage.rect
  11.   pMyState = #birth
  12.   pBlendLevel = 0
  13.   case gPicNum of
  14.     0:
  15.       pMaxBlend = 40
  16.     otherwise:
  17.       pMaxBlend = 100
  18.   end case
  19.   return me
  20. end
  21.  
  22. on movePhotosPic me
  23.   case pMyState of
  24.     #birth:
  25.       if pBlendLevel < pMaxBlend then
  26.         pBlendLevel = pBlendLevel + 2
  27.       else
  28.         pMyState = #idle
  29.       end if
  30.     #idle:
  31.   end case
  32. end
  33.